Mapa

---
title: "Despachos de cobranza"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: daimler.png
    logo: daimler.png
    fig_mobile: TRUE
    theme: lumen
    social: menu
    source_code: embed
    navbar:
      - {title: "Daimler Financial Services", href: "https://www.daimlerfinancialservices.com.mx/", align: right, icon: fa-home}
      - {title: "Fuente", href: "https://www.daimlerfinancialservices.com.mx/legals/collection-offices", align: right, icon: fa-map-marker}
      - {title: "Créditos", href: "https://cghv94.github.io/", align: right, icon: fa-user}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Despachos de cobranza de Daimler Financial Services

```{r}
lugares <- read.csv("cobranza.csv")

### Nos aseguramos de que la latitud y longitud sean números
lugares$Longitud <- as.numeric(lugares$Longitud)
lugares$Latitud <- as.numeric(lugares$Latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~Longitud, ~Latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Gestores:", lugares$Gestores, "Dirección:", lugares$Direccion, "Teléfono:", lugares$Telefono, "Correo:", lugares$Correo)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### Nota

Existen inconsistencias en la información de algunos despachos de cobranza, por ejemplo:

En el caso de **URESTI Y ABOGADOS ASOCIADOS, SC**, la dirección registrada en el apartado *Collection Offices* de la página de Daimler es **Anahuac 248, COL. LA CONDESA, DELEG./MPIO. GUADALUPE, ENTIDAD FEDERATIVA: NUEVO LEÓN** mientras que la dirección registrada en el [sitio web de URESTI Y ABOGADOS ASOCIADOS, SC](https://uaasc.mx/) es **Calle Gral. Carlos Salazar Ote. 2333, Obrera, 64010 Monterrey, N.L.**.